home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 40 / 040.d81 / list patrol boot (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  2.4 KB  |  75 lines
  1. 0 poke53280,.:poke53281,.
  2. 5 ifa=1then519
  3. 10 print"[147][152][146][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  4. 20 print"{$7d}           [158]L O A[160]D S T A R            [152]{$7d}";
  5. 30 print"{$7d}           [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]            {$7d}";
  6. 40 print"{$7d}              Presents                [152]{$7d}";
  7. 50 print"{$7d}                                  [160]   {$7d}";
  8. 60 print"{$7d}        L I S T - P A T R O L         [152]{$7d}";
  9. 70 print"[173]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[189]";
  10. 80 print"[176]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[174]";
  11. 90 print"{$7d}[151]100 REM      [152][160]                  [160]     {$7d}";
  12. 100 print"[221][151]110 [210][197][205]     [204][201][211][212] [208][193][212][210][207][204]        [152][160]      [221]";
  13. 110 print"{$7d}[151]120 REM                         [152][160]     {$7d}";
  14. 120 print"[221][151]130 [210][197][205]  [194][217] [194][213][195][203][160][195][200][201][204][196][210][197][211][211]      [152][160]     [221]";
  15. 130 print"{$7d}[151]140 REM                              [152][160]{$7d}";
  16. 140 print"{$7d}[151]150 REM    COPYRIGHT 1987            [152][160]{$7d}";
  17. 150 print"{$7d}[151]160 REM                              [152][160]{$7d}";
  18. 160 print"{$7d}[151]170 PRINT 'SUBSCRIBE TO[160]LOADSTAR NOW'[152][160]{$7d}";
  19. 170 print"{$7d}[151]175 GOTO 170                         [152][160]{$7d}";
  20. 180 print"{$7d}                                     [160]{$7d}";
  21. 190 print"{$7d} FIND [152]: [154]PRINT                         [152]{$7d}";
  22. 200 print"{$7d}                                     [160]{$7d}";
  23. 210 print"{$7d}170 PRINT 'SUBSCRIBE TO LOADSTAR NOW' [152]{$7d}";
  24. 220 print"[173]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[189]";
  25. 230 print"[176]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[174]";
  26. 240 print"[221]                                      [221]";
  27. 250 print"{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[189]";
  28. 260 poke241,peek(241)or128
  29. 270 print"[145]":print"[148][173]";:print"";
  30. 281 print "[208]ress [211][208][193][195][197] [212]o [195]ontinue"
  31. 290 geta$
  32. 295 ifa$<>" "then 290
  33. 300 print"[147]"
  34. 310 print
  35. 320 print
  36. 330 print
  37. 340 print"           [204][201][211][212] [208][193][212][210][207][204]"
  38. 350 print"           [152][163][163][163][163][163][163][163][163][163][163][163]"
  39. 360 print
  40. 370 print"      1[152]) [154][193][195][212][201][214][193][212][197] [204][201][211][212] [208][193][212][210][207][204]"
  41. 380 print
  42. 390 print
  43. 400 print"      2[152]) [154][209][213][201][212] [194][193][195][203] [212][207] [158][204][207][193][196][211][212][193][210]"
  44. 410 print
  45. 420 print
  46. 430 print"      [197]nter [211]election [152](1 [207][210] 2[152])   "
  47. 450 geta$:ifa$=""then450
  48. 455 ifa$="1"then 500
  49. 456 ifa$="2"then 600
  50. 475 goto 450
  51. 500 :
  52. 510 print"[147]"
  53. 511 print" [207]nce [204][201][211][212] [208][193][212][210][207][204] is activated, you "
  54. 512 print"must reboot [204][207][193][196][211][212][193][210] to return to menu"
  55. 513 print" ** [196][207][160][217][207][213] [215][201][211][200] [212][207] [195][207][206][212][201][206][213][197] ? ([217]/[206]) **"
  56. 514 geta$:ifa$="" then 514
  57. 515 ifa$="[217]"ora$="y"then 518
  58. 516 ifa$="[206]"ora$="n"then 300
  59. 517 goto 514
  60. 518 a=1:print"[147][204][207][193][196][201][206][199]....":load"list patrol.ml",8,1
  61. 519 sys50000:print"[147][204]ist [208]atrol is now activiated.  [217]ou may"
  62. 520 print"now use the function keys to control "
  63. 525 print"list patrol.  [193]fter function keys have"
  64. 527 print"been pressed you can excape with the    [210][213][206]/[211][212][207][208] [203]ey"
  65. 546 end
  66. 600 print"[145]     [154][196][207][160][217][207][213][160][215][201][211][200] [212][207] [209][213][201][212]? ([217]/[206])   "
  67. 610 geta$:ifa$=""then610
  68. 611 ifa$="y"ora$="[217]" then 675
  69. 620 ifa$="n"ora$="[206]"thenprint"[145]";:goto 430
  70. 650 goto 610
  71. 675 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  72. 677 ifer<>63 then print"[147]":end
  73. 680 load"hello connect",8,1
  74. 999 :
  75.